home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.2 / Video Toaster v4.2.iso / arexx / switcher / toastslideshow.rexx < prev    next >
OS/2 REXX Batch file  |  1993-12-13  |  2KB  |  59 lines
  1. /*  Toaster Slide Show -- Shows ALL your framestores */
  2. /* By Arnie Cachelin © 1992 NewTek Inc. */
  3.  
  4. /*  This program will display ALL the frames in the current FrameStore
  5.     directory in a slideshow manner, using whatever transition is currently
  6.     selected.  It will also say what it is showing, which may get annoying,
  7.     unless you turn your volume down!
  8.     It is difficult to make it stop using ctl-C, so you may want
  9.     to move the frames you want to show to another framestore directory, like
  10.     RAM:.
  11. */
  12.  
  13. OPTIONS RESULTS
  14. TOASTERLIB="ToasterARexx.port"
  15.  
  16. IF ~SHOW('Libraries',TOASTERLIB) THEN
  17.   IF ~ADDLIB(TOASTERLIB , 0) THEN x=Bummer(" Please start your Video Toaster")
  18.  
  19. Switcher(MDV1) /* put Program and Preview outputs on framestores */
  20. Switcher(PDV2)
  21. Switcher(TOSW)
  22. /* Switcher(GOLD)    /* Set keypad to frame loading */ */
  23. Switcher(DOEN)    /* hit enter key to load */
  24. Switcher(AUTO)    /* Do whatever transition is selected */
  25. N=Switcher(STAT,KNUM) /* Get the current keypad number, so we know where we started */
  26. Switcher(KEYP)    /* hit the '+' key */
  27. Switcher(FAST)    /* set transition speed to fast (we don't have all day!) */
  28. do While Switcher(STAT,KNUM)~=N   /* Go until we return to the starting frame */
  29.     say Switcher(STAT,TEXT)
  30.   Switcher(DOEN)    /* hit enter key to load */
  31.   Switcher(KEYP)    /* hit the '+' key */
  32.   Switcher(AUTO)    /* Do whatever transition is selected */
  33.   end
  34.  
  35. exit    /* All done! */
  36.  
  37.  
  38. Bummer: PROCEDURE
  39.  arg etxt
  40.  say etxt
  41.  EXIT
  42.  return 0
  43.  
  44. /* Here are two fun special effects type procedures I did for the XMas party...
  45.    they aren't actually used here. */
  46.  
  47. CutAndFade: Procedure   /* Select fade transition for pulsing effect */
  48.   Switcher(TAKE)        /* Cut to one frame */
  49.   Switcher(AUTO)        /* Fade (or whatever) to other frame */
  50.   return 1
  51.  
  52. RandomCrouton: PROCEDURE          /*  Select a random crouton!, some may not do the right thing! */
  53.   grd=translate(random(1,6),"ABCDEF","123456") /* random letter generator! */
  54.   TOASTCmd= "t=Switcher(Grid,"GRD||RANDOM(1,4)||RANDOM(1,8)||")"
  55.     SAY TOASTCmd
  56.   INTERPRET TOASTCmd
  57.   return t
  58.  
  59.